Spektrum der Wissenschaft, Januar 2014
Perkulation beim Phasenbergang
======================================

ScriptBegin
var Grafik="Script Turtle";

var r=2;                // Radius
var wPen=0.2;           // Strichstrke mm
var cPen1="gray";       // Penfarbe
var cPen2="gray";
var cBack1="#ff6b01";   // Hintergrund
var cBack2="#0094fe";
var imax=45;
var jmax=58;

function init() //Initialisierungen
{} 


function draw() //Zeichenbefehle
{ 
  defSechseck(); defShift();
  t.goTo(0,0);t.turnTo(15);

  for(var i=-imax; i<imax; i++)
   {
   for (var j=-jmax; j<jmax; ++j) 
    { t.setNoStyle();
      t.goTo(0,0); t.shift("ShiftA",i); t.shift("ShiftB",j);
      if (0.5<t.rnd(1))
       { t.draw("Sechseck");}
      else 
       { t.setPen(cPen2,wPen); t.setBrush(cBack2);
        t.draw("Sechseck",false);
       }
    }
   }
  t.setPen("black",wPen);
  t.rahmen();
}



function defSechseck()
{ t.setNoStyle();
  t.isoPolygon(r,6);
  t.setPen(cPen1,wPen);
  t.setBrush(cBack1);
  t.defDraw("Sechseck");
}


function defShift()
{ t.setNoStyle();
  t.goTo(0,0); t.turnTo(0);
  t.move(r); t.turn(60); t.move(r);
  t.defPoint("ShiftA");

  t.goTo(0,0); t.turnTo(0);
  t.move(r); t.turn(-60); t.move(r);
  t.defPoint("ShiftB");  

}


ScriptEnd

